﻿Public Class FlexTokenVm
    Inherits TokenBaseVm

    Public Sub New(ByVal token As Token, ByVal objectVm As RawObjectVm, ByVal usage As TokenUsage)
        MyBase.New(token, objectVm, usage)
    End Sub

    Public Sub New(token As Token, obj As RawObjectVm)
        MyBase.New(token, obj, TokenDictionary.Instance.GetUsage(token.Name, obj.RawObject.TypeCode))
    End Sub

    Public Overrides ReadOnly Property CanAddArguments As Boolean
        Get
            Return True
        End Get
    End Property
End Class
